home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Resources / Backup, Restoration & File Management / SyncBack SE 5.1 / SyncBackSE_Setup.exe / {app} / IsDriveReady.vbs < prev    next >
Text File  |  2007-11-21  |  981b  |  40 lines
  1. ' IsDriveReady by Dave Wilkins 2007
  2.  
  3. ' either preload the drive letter in question (in which
  4. ' case suggest rename the script IsDriveXReady.vbs...)
  5.  
  6. DLetter = "X"
  7.  
  8. ' OR 
  9.  
  10. ' Set objArgs = WScript.Arguments
  11. ' DLetter = objArgs.Item(0)
  12. ' Cater for anyone who has "helpfully" included : or \
  13. ' DLetter = Left(DLetter,1)
  14.  
  15. Set fso = CreateObject("Scripting.FileSystemObject") 
  16. Set dc = fso.Drives ' drive collection
  17.  
  18. Do
  19.  
  20.     For Each d In dc ' scan the drives looking for DLetter
  21.  
  22.         If d.DriveLetter = DLetter Then
  23.             retval = 0 ' "OK" value for SBSE to proceed
  24.             Exit Do
  25.         End If
  26.     Next 
  27.  
  28.     ' we have a non-ready drive
  29.  
  30.     retval = MsgBox ("Please insert (or turn on) external drive " & DLetter, vbRetrycancel+Vbdefaultbutton1,"Backup Drive Not Ready")
  31.  
  32.     If retval = VBCancel Then '
  33.         retval = 1 ' not OK (in SBSE-speak - diff val to VBCancel)
  34.         Exit Do
  35.     End If
  36.  
  37. Loop ' scan again; if still not ready, keep alerting till cancelled
  38.  
  39. Wscript.quit(retval)
  40.